home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / bix03.arc / LBENCH.PAS < prev    next >
Pascal/Delphi Source File  |  1986-08-04  |  773b  |  30 lines
  1. {TITLE: Looping BenchMarks}
  2.  
  3. (*$i-*)
  4. program jveg_benchmarks;
  5.  
  6. const firstloop = 2;
  7.       lastloop  = 20000;  (* 2000 for benchmarks 5,6 *)
  8.  
  9. var loop:integer;
  10.     a,b,c,d:real;
  11.     z:integer; (* integer[6] for benchmark 3, real for benchmark 4 *)
  12.  
  13. begin
  14.      z:=0;
  15.      write('Press return to start: '); readln;
  16.  
  17.      for loop:=firstloop to lastloop do
  18.      begin
  19.           (* benchmark  1  --  empty loop     *)
  20.           (* benchmarks 2,3,4  --  z := z+1   *)
  21.           (* benchmark  5  --  writeln;       *)
  22.           (* benchmark  6  --  a := sin(loop);
  23.                                b := sqrt(loop);
  24.                                c := ln(loop);
  25.                                d := a*b/c;    *)
  26.      end;
  27.  
  28.      writeln('Finished.');
  29. end.
  30.